Xbasic
a5queueing::queueDequeue Method
Syntax
.Dequeue as A5Storage::CallResult (BYREF item as P [, blocking as L])
Arguments
- BYREF itemPointer
Item to return.
- blockingLogical
Optional blocking flag - if set, dequeue will wait until there is an item available.
Returns
- resultA5Storage::CallResult
Call result, if no item was returned, a code of 39002 'No Queue Items Found' is returned.
Description
Dequeue a item from the queue.
Example
dim qm as A5Queueing::Queue = null_value() dim item as A5Queueing::QueueItem = null_value() if A5Queueing::Queue::Open(qm,"Provider='RabbitMQ';Host='localhost';Queue='TestQ';").success then dim message as c dim callresult as p = qm.dequeue(item) if callresult.success then message = item.Body item.WorkCompleted() ui_msg_box("New Message",message) else ui_msg_box("No item dequeued",callresult.text) end if end if